0 PMODE OFF:CLS
5 RX=512:CD=30:ME=270:PRINT@ME,CHR$(128)
7 ON ERROR GOTO 8000
10 A$=INKEY$:IFA$=""THEN10
20 X=(ASC(A$)AND63)
30 GOSUB5000
35 GOSUB6000
37 GOSUB7000
40 PRINT@ME,CHR$(128+(MEAND15));:PRINT@CU," ";
50 ON X GOSUB 100,200,300,400,500,600,700,800,900,1000,1100,1200,1300,1400,1500,1600,1700,1800,1900,2000,2100,2200,2300,2400,2500,2600,2700,2800,2900,3000,3100,3200,3300,3400,3500,3600,3700,3800,3900,4000,4100,4200,4300,4400,4500,4600,4700,4800,4900
55 GOTO10
100 ME=ME-1:ME=ABS(511ANDME):CU=(511AND(ME+1)):RETURN
1300 PRINT"I AM THE ENTER KEY":RETURN
1900 ME=ME+1:ME=(511ANDME):CU=(511AND(ME-1)):RETURN
2300 ME=ME-32:ME=ABS(511ANDME):CU=(511AND(ME+32)):RETURN
2600 ME=ME+32:ME=(511ANDME):CU=ABS((511ANDME)-32):IFME<32THENCU=ME+32*15:RETURN:ELSE:RETURN
5000 R=RND(RX)-1:PQ=RND(511-RX)
5001 POKE16384+R+PQ,255
5002 IFR<>METHEN5020
5005 FORZ=0TO255:CLS8ANDZ:NEXT
5010 IFR=ME THEN CLS0:PRINT"the\80bomb\80landed\80right\80on\80you";
5015 GOSUB9000:END
5020 RETURN
6000 IFPEEK@(16384+ME+1)=255THENRX=RX-1:IF16384+ME+1<16896THENPOKE@16384+ME+1,96:CD=CD+3
6010 IFPEEK@(16384+ME-1)=255THENRX=RX-1:POKE@16384+ME-1,96:CD=CD+3
6020 IFPEEK@(16384+ME+32)=255THENRX=RX-1:IF16384+ME+32<16896THENPOKE@16384+ME+32,96:CD=CD+3
6030 IFPEEK@(16384+ME-32)=255THENRX=RX-1:POKE@16384+ME-32,96:CD=CD+3
6040 PRINT@0,"YOUR SCORE";512-RX
6050 RETURN
7000 CD=CD-1
7010 IFCD=0THEN PLAY"T255;ABCDEFG":PRINT"YOU RAN OUT OF FUEL AND DIED";:GOSUB9000:END
7015 PRINT@16,"NO FUEL=DEAD";CD;
7020 RETURN
8000 PRINT@511-63,"OOPS";
8010 GOTO10
9000 PRINT"    FINAL SCORE";(512-RX)*CD
9002 FS=(512-RX)*CD
9005 INPUT"YOUR NAME";N$
9006 N$=N$+STR$(FS)
9007 SAVESCREEN N$,0
9010 RETURN
10000 REM FUEL OR DIE BY ROBERT SIEG
10010 REM MADE FOR THE MCX-32
10020 REM IF YOU LOOK AT THE LOGIC YOU WILL SEE IT DOES NOT WORK WITH IF THEN LOGIC THAT MUCH
10030 REM AT THE END PUT YOUR NAME AND LATER YOU CAN DROP YOUR SAVED SCORES INTO A SHARED FOLDER
10040 REM BY TYPING DIR YOU CAN LOOK AT ALL THE UNIQUE SCORES 
10050 REM IT IS MY HOPE THAT THIS TYPE OF SHARED GAME PLAY CAN SPAWN MORE INTEREST IN THE MC-10
10060 REM 12-31-2020
10070 REM PLEASE KEEP SCORES HONEST.
